home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / beep.arc / BBP.PRG < prev    next >
Encoding:
Text File  |  1986-04-29  |  640 b   |  29 lines
  1. * bbp.prg - Make sound
  2.  
  3. do while .t.
  4.     clear
  5.     freq1=0
  6.     dur1=0
  7.     freq2=0
  8.     dur2=0
  9.     freq3=0
  10.     dur3=0
  11.     @ 1,10 say 'Enter frequency ' get freq1
  12.     @ 2,10 say '      duration  ' get dur1
  13.     @ 4,10 say 'Enter frequency ' get freq2
  14.     @ 5,10 say '      duration  ' get dur2
  15.     @ 7,10 say 'Enter frequency ' get freq3
  16.     @ 8,10 say '      duration  ' get dur3
  17.     read
  18.     if freq1+dur1=0
  19.         quit
  20.     endif
  21.     call bp with freq1,dur1
  22.     if freq2+dur2>0
  23.         call bp with freq2,dur2
  24.     endif
  25.     if freq3+dur3>0
  26.         call bp with freq3,dur3
  27.     endif
  28. enddo
  29.